<%

Function torneio_copa_confronto(conexao, id_clube_1, id_clube_2, id_grupo)

			DIM k,i,j,p, clube(1,2), venc
			
			for i=0 to 1
				for j=0 to 2
						clube(i,j)=0
				next
			next

			for k=1 to 2
					
						p = 3-k
			
						str = "Select placar_1, placar_2 FROM torneios_jogos where id_clube_"&k&"="&id_clube_1&" and id_clube_"&p&"="&id_clube_2&" and id_grupo="&id_grupo
						Set rs2 = conexao.Execute(str)		
						
						Do while not rs2.eof

							if rs2("placar_"&k)>rs2("placar_"&p) then
									clube(0,0)=clube(0,0)+1
							else
									if rs2("placar_"&k)<rs2("placar_"&p) then
											clube(1,0)=clube(1,0)+1
									End If
							End If
							
							clube(0,1)=clube(0,1)+rs2("placar_"&k)
							clube(1,1)=clube(1,1)+rs2("placar_"&p)
							
							if k=2 then clube(0,2)=clube(0,2)+rs2("placar_"&k)
							if p=2 then clube(1,2)=clube(1,2)+rs2("placar_"&p)
						
							rs2.MoveNext
						Loop
					
			Next
			
			if clube(0,0)>clube(1,0) then venc=id_clube_1
			if clube(0,0)<clube(1,0) then venc=id_clube_2
			if clube(0,0)=clube(1,0) then
						if clube(0,1)>clube(1,1) then venc=id_clube_1
						if clube(0,1)<clube(1,1) then venc=id_clube_2
						if clube(0,1)=clube(1,1) then
						
									str = "Select criterio FROM torneios_grupos where id="&id_grupo
									Set rs = conexao.Execute(str)	
									
									if not rs.eof then
										
										str = "Select * FROM criterios where id="&rs("criterio")
										Set rs = conexao_geral.Execute(str)
										
										ordem = rs("ordem")
										
										j=0
										
										if rs("copa_visitante")=1 then
												
												j=1
												
												if clube(0,2)>clube(1,2) then venc=id_clube_1
												if clube(0,2)<clube(1,2) then venc=id_clube_2
												if clube(0,2)=clube(1,2) then j=0
										
										End If
										
										if j=0 then
										
												str = "Select id FROM torneios_jogos where ((id_clube_1="&id_clube_1&" and not id_clube_2="&id_clube_2&") OR (id_clube_2="&id_clube_1&" and not id_clube_1="&id_clube_2&")) and id_grupo="&id_grupo
												Set rs = conexao.Execute(str)	
												
												str = "Select id FROM torneios_jogos where ((id_clube_1="&id_clube_2&" and not id_clube_2="&id_clube_1&") OR (id_clube_2="&id_clube_2&" and not id_clube_1="&id_clube_1&")) and id_grupo="&id_grupo
												Set rs2 = conexao.Execute(str)
												
												if rs.eof and not rs2.eof then venc=id_clube_1
												if rs2.eof and not rs.eof then venc=id_clube_2
												if (rs2.eof and rs.eof) or (not rs2.eof and not rs.eof) then
														
														str = "Select id_torneio FROM torneios_grupos where id="&id_grupo
														Set rs = conexao.Execute(str)	
														id_torneio=rs("id_torneio")
														
														str = "Select id_clube FROM torneios_clubes where id_torneio="&id_torneio&" and (id_clube="&id_clube_1&" or id_clube="&id_clube_2&") order by "&ordem
														Set rs = conexao.Execute(str)	
														
														str = "Select DISTINCT jogos, vitorias, empates, golspros, golscontras FROM torneios_clubes where id_torneio="&id_torneio&" and (id_clube="&id_clube_1&" or id_clube="&id_clube_2&")"
														Set rs2 = conexao.Execute(str)	
														rs2.MoveNext
														
														if rs("id_clube")=id_clube_1 then venc=id_clube_1
														if rs("id_clube")=id_clube_2 then venc=id_clube_2
														if rs2.eof then
														
										
																str = "Select posicao FROM torneios_lista where id_grupo="&id_grupo&" and id_clube="&id_clube_1
																Set rs = conexao.Execute(str)	
																
																str = "Select posicao FROM torneios_lista where id_grupo="&id_grupo&" and id_clube="&id_clube_2
																Set rs2 = conexao.Execute(str)	
																
																if rs("posicao")<rs2("posicao") then venc=id_clube_1
																if rs("posicao")>rs2("posicao") then venc=id_clube_2
																if rs("posicao")=rs2("posicao") then
																
																		if id_clube_1<=id_clube_2 then 
																				venc=id_clube_1
																		Else
																				venc=id_clube_2
																		End If
																		
																
																End If
																
														End If
																
												End If
										
										End If
										
									
									End If
								
						End If
			End If
			
			torneio_copa_confronto = venc

End Function

%>